home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_06_1985_Transactor_Publishing.d64 / set sprites (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  109 lines
  1. 0 rem set sprites (aug 25/84)         :
  2. 1 :
  3. 2 rem 6 statements, 0 functions
  4. 3 :
  5. 4 rem keyword characters: 27
  6. 5 :
  7. 6 rem keyword     routine  line   ser #
  8. 7 rem s/colspr    colsp    3530    031
  9. 8 rem s/sspr      ssp      3550    032
  10. 9 rem s/cspr      csp      3560    033
  11. 10 rem s/xspr     xsp      3574    034
  12. 11 rem s/yspr     ysp      3628    035
  13. 12 rem s/xyspr    xysp     3656    036
  14. 13 :
  15. 14 rem u/chkspr (3664/037)
  16. 15 rem u/raschk (3676/038)
  17. 16 rem d/powers (3694/039)
  18. 17 :
  19. 18 rem ================================
  20. 19 :
  21. 108 .asc "colsp[210]ssp[210]csp[210]"
  22. 109 .asc "xsp[210]ysp[210]xysp[210]"
  23. 1108 .word colsp-1,ssp-1,csp-1
  24. 1109 .word xsp-1,ysp-1,xysp-1
  25. 3530 colsp jsr chs1
  26. 3532 txa
  27. 3534 pha
  28. 3536 jsr $b7f1
  29. 3538 pla
  30. 3540 tay
  31. 3542 txa
  32. 3544 sta $d027,y
  33. 3546 rts
  34. 3548 ;
  35. 3550 ssp jsr chs1
  36. 3552 lda powers,x
  37. 3554 ora $d015
  38. 3556 bne csp1
  39. 3558 ;
  40. 3560 csp jsr chs1
  41. 3562 lda powers,x
  42. 3564 eor #$ff
  43. 3566 and $d015
  44. 3568 csp1 sta $d015
  45. 3570 rts
  46. 3572 ;
  47. 3574 xsp jsr chs1
  48. 3576 stx t3
  49. 3578 jsr $aefd
  50. 3580 jsr $ad8a
  51. 3582 jsr $b7f7
  52. 3584 lda $15
  53. 3586 cmp #2
  54. 3588 bcs xs3
  55. 3590 ldx t3
  56. 3592 ror
  57. 3594 lda powers,x
  58. 3596 bcc xs1
  59. 3598 ora $d010
  60. 3600 bcs xs2
  61. 3602 xs1 eor #$ff
  62. 3604 and $d010
  63. 3606 xs2 tay
  64. 3608 txa
  65. 3610 asl
  66. 3612 tax
  67. 3614 lda $14
  68. 3616 jsr raschk
  69. 3618 sty $d010
  70. 3620 sta $d000,x
  71. 3622 rts
  72. 3624 xs3 jmp $b248
  73. 3626 ;
  74. 3628 ysp jsr chs1
  75. 3630 ys1 txa
  76. 3632 asl
  77. 3634 pha
  78. 3636 jsr $b7f1
  79. 3638 txa
  80. 3640 tay
  81. 3642 pla
  82. 3644 tax
  83. 3646 tya
  84. 3648 jsr raschk
  85. 3650 sta $d001,x
  86. 3652 rts
  87. 3654 ;
  88. 3656 xysp jsr xsp
  89. 3658 ldx t3
  90. 3660 bpl ys1
  91. 3662 ;
  92. 3664 chkspr jsr $73
  93. 3666 chs1 jsr $b79e
  94. 3668 cpx #8
  95. 3670 bcs xs3
  96. 3672 rts
  97. 3674 ;
  98. 3676 raschk pha
  99. 3678 ras1 lda $d012
  100. 3680 sbc $d001,x
  101. 3682 bcc ras2
  102. 3684 cmp #$2b
  103. 3686 bcc ras1
  104. 3688 ras2 pla
  105. 3690 rts
  106. 3692 ;
  107. 3694 powers .byte 1,2,4,8,16,32,64,128
  108. 3696 ;
  109.